home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Games / PC-SIG World of Games (CDRM1080710) (1993).iso / 55 / HRSERACE.BAS < prev    next >
BASIC Source File  |  1983-02-12  |  5KB  |  138 lines
  1. 10 KEY OFF:CLS
  2. 20 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  3. 30 PRINT"░┌───────────────────────────────────┐░"
  4. 40 PRINT"░│                                   │░"
  5. 50 PRINT"░│            2045-A.BAS             │░"
  6. 60 PRINT"░│            HORSE RACES            │░"
  7. 70 PRINT"░│                                   │░"
  8. 80 PRINT"░│                                   │░"
  9. 90 PRINT"░│ BROUGHT TO YOU BY THE MEMBERS OF  │░"
  10. 100 PRINT"░│      ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄ ▄▄▄▄▄      │░"
  11. 110 PRINT"░│        █   █   █ █     █   █      │░"
  12. 120 PRINT"░│        █   █▄▄▄█ █     █   █      │░"
  13. 130 PRINT"░│        █   █     █     █   █      │░"
  14. 140 PRINT"░│      ▄▄█▄▄ █     █▄▄▄▄ █▄▄▄█      │░"
  15. 150 PRINT"░│                                   │░"
  16. 160 PRINT"░│      International PC Owners      │░"
  17. 170 PRINT"░│                                   │░"
  18. 180 PRINT"░│P.O. Box 10426, Pittsburgh PA 15234│░"
  19. 190 PRINT"░│                                   │░"
  20. 200 PRINT"░└───────────────────────────────────┘░"
  21. 210 PRINT"░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  22. 220 PRINT
  23. 230 PRINT "       PRESS ANY KEY TO CONTINUE
  24. 240 A$=INKEY$: IF A$="" THEN 240
  25. 250 CLS
  26. 1000 SAMP$="NO":GOTO 1020
  27. 1010 SAMP$="YES"
  28. 1020 KEY OFF:WIDTH 80:CLS
  29. 1030 DEF SEG=64:POKE 23,64'CAPITAL LETTERS
  30. 1040 DEF SEG=0:POKE 1050, PEEK(1052):DEF SEG:POKE 106,0
  31. 1050 RANDOMIZE VAL(MID$(TIME$,7,2)+MID$(TIME$,4,2))
  32. 1060 INPUT "INSTRUCTIONS FOR HORSE RACE GAME";Y$
  33. 1070 IF LEFT$(Y$,1)="N" THEN 1210
  34. 1080 IF LEFT$(Y$,1)<>"Y" THEN PRINT "?what?":GOTO 1060
  35. 1090 PRINT"IN THIS GAME THERE CAN BE FROM 2 TO 10 PLAYERS"
  36. 1100 PRINT"THE TOTAL MONEY AVAILABLE TO EACH IS $200.00"
  37. 1110 PRINT"YOU CAN HAVE UP TO 10 RACES IN A GAME."
  38. 1120 PRINT"WHEN THERE IS ONLY ONE PLAYER WITH MONEY,"
  39. 1130 PRINT"THE GAME IS OVER. ANY BET BEYOND THE AMOUNT"
  40. 1140 PRINT"IN THE BANK WILL BE IGNORED. ONCE YOU HAVE"
  41. 1150 PRINT"LOST IT ALL, YOU ARE DONE FOR THAT GAME."
  42. 1160 PRINT"THERE ARE 5 HORSES, #1 TO #5, TO BET ON."
  43. 1170 PRINT"THE ODDS ARE: #1 2-1,#2 3-1,#3 5-1,"
  44. 1180 PRINT"#4 10-1,#5 20-1, SO BET ACCORDINGLY."
  45. 1190 PRINT"GOOD LUCK AT THE RACES."
  46. 1200 PRINT
  47. 1210 INPUT "HOW MANY PLAYERS";X
  48. 1220 INPUT "HOW MANY RACES";Z
  49. 1230 FOR J=1 TO X
  50. 1240 C(J)=200
  51. 1250 NEXT J
  52. 1260 G=0
  53. 1270 F=0
  54. 1280 PRINT
  55. 1290 FOR J=1 TO X
  56. 1300 IF C(J)=0 THEN 1330
  57. 1310 P=J
  58. 1320 F=F+1
  59. 1330 NEXT J
  60. 1340 IF F<2 THEN 1980
  61. 1350 PRINT"TYPE THE # OF THE HORSE, THE BET FOR RACE";G+1
  62. 1360 FOR J=1 TO X
  63. 1370 IF C(J)=0 THEN 1400
  64. 1380 PRINT"PLAYER #";J;" ";
  65. 1390 INPUT E(J),D(J)
  66. 1400 IF D(J)>C(J) THEN D(J)=C(J)
  67. 1410 IF E(J)<1 THEN 1460
  68. 1420 IF E(J)>5 THEN 1460
  69. 1430 NEXT J
  70. 1440 PRINT
  71. 1450 GOTO 1480
  72. 1460 PRINT"BET ON HORSE #1 TO 5 ONLY."
  73. 1470 GOTO 1380
  74. 1480 FOR J=1 TO 5
  75. 1490 A(J)=0
  76. 1500 B(J)=1
  77. 1510 NEXT J
  78. 1520 G=G+1
  79. 1530 REM ***** START THE RACES ******
  80. 1540 PLAC=5:CLS
  81. 1550 COLOR 23:PRINT "   START THE RACES";:COLOR 15:PRINT TAB(74);"END"
  82. 1560 GOSUB 2070
  83. 1570 DONE=0
  84. 1580 FOR J=1 TO 5:LOCATE J+5,1:PRINT J:A(J)=1:NEXT
  85. 1590 GOSUB 2070
  86. 1600 LOCATE 1,1:PRINT "                      "
  87. 1610 FOR I=1 TO 500
  88. 1620 FOR J=1 TO 5
  89. 1630 OLD=A(J):IF OLD>75 THEN OLD=75
  90. 1640 A(J)=A(J)+RND*6-J/4+1.25
  91. 1650 NW=A(J):IF NW>75 THEN NW=75:DONE=1
  92. 1660 FOR J1=OLD TO NW:LOCATE J+5,J1:PRINT " ";J;:NEXT
  93. 1670 NEXT J
  94. 1680 IF DONE=1 THEN LOCATE 1,1:PRINT "   COLLECT YOUR WINNINGS":GOTO 1710
  95. 1690 NEXT I
  96. 1700 REM ***** FIND WINNER *****
  97. 1710 FOR J=1 TO 5
  98. 1720 FOR K=1 TO 5
  99. 1730 IF A(J)>A(K) THEN B(K)=B(K)+1
  100. 1740 NEXT K
  101. 1750 NEXT J
  102. 1760 PRINT
  103. 1770 FOR J=1 TO 5
  104. 1780 IF B(J)=1 THEN 1800
  105. 1790 NEXT J
  106. 1800 LOCATE 12,1:PRINT"HORSE #";J;"IS THE WINNER."
  107. 1810 FOR J=1 TO X
  108. 1820 IF B(E(J))=1 THEN 1870
  109. 1830 IF B(E(J)) <> 1 THEN C(J)=C(J)-D(J)
  110. 1840 PRINT"PLAYER #";J;"$";C(J)
  111. 1850 NEXT J
  112. 1860 GOTO 1930
  113. 1870 IF E(J)=1 THEN C(J)=C(J)+2*D(J)
  114. 1880 IF E(J)=2 THEN C(J)=C(J)+3*D(J)
  115. 1890 IF E(J)=3 THEN C(J)=C(J)+5*D(J)
  116. 1900 IF E(J)=4 THEN C(J)=C(J)+10*D(J)
  117. 1910 IF E(J)=5 THEN C(J)=C(J)+20*D(J)
  118. 1920 GOTO 1840
  119. 1930 IF G=Z THEN 1950
  120. 1940 GOTO 1270
  121. 1950 PRINT Z;"RACES HAVE BEEN RUN. THE PLAYER"
  122. 1960 PRINT"WITH THE MOST MONEY IS THE WINNER."
  123. 1970 GOTO 2020
  124. 1980 IF F=0 THEN 2010
  125. 1990 PRINT"PLAYER #";P;"IS THE WINNER"
  126. 2000 GOTO 2020
  127. 2010 PRINT"THERE IS NO WINNER"
  128. 2020 INPUT "WANT A NEW GAME";Y$
  129. 2030 IF LEFT$(Y$,1)="Y" THEN 1210
  130. 2040 IF LEFT$(Y$,1)<>"N" THEN PRINT "?what?":GOTO 2020
  131. 2050 PRINT"HOPE YOU HAD FUN AT THE RACES."
  132. 2060 IF SAMP$="YES" THEN CHAIN "SAMPLES",1000 ELSE END
  133. 2070 REM ******* WAIT ******
  134. 2080 FOR IW=1 TO 1000:NEXT
  135. 2090 RETURN
  136. 2060 IF SAMP$="YES" THEN CHAIN "SAMPLES",1000 ELSE END
  137. 2070 REM ******* WAIT ******
  138. 2080 F